home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 16
/
Tiger_Disk_016_19xx_Tiger-Crew-Disk_de_Side_A.d64
/
rox _ deutsch
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
7KB
|
201 lines
10 print"[147]":poke788,52:poke53280,0:poke53281,0:poke56,48:clr
20 forx=0to6:s(x)=192+x:next x:v=53248
25 dimsc$(10),sc(10):forx=1to10:sc$(x)="***[156]rox[159]64[158]***":sc(x)=0:next x
30 forx=s(0)*64tos(6)*64+64:pokex,0:nextx
36 forx=0to50:reada:pokes(1)*64+6+x,a:next x:poke2041,s(1)
37 data64,20,1,16,170,4,11,255,224,21,85,88,148,0,22,144,0,6,144,0,6,144,0,6
38 data144,0,6,144,0,6,159,255,246,4,0,16,4,0,16,16,0,4,16,0,4,64,0,1,64,0,1
40 forx=0to7:reada:pokes(0)*64+25+x*3,a:next x
45 data24,62,124,255,254,126,94,8
50 forx=0to56:reada:pokes(6)*64+x,a:next x:poke2046,s(6)
55 data2,0,0,2,0,0,2,0,0,20,0,0,8,16,0,20,255,0,226,0,128,4,124,64
56 data5,66,64,4,66,64,2,66,128,1,67,0,2,254,128,4,56,64,8,40,32,16,56,16
57 data16,40,16,16,56,16,56,40,56
60 forx=0to7:reada:pokes(2)*64+25+x*3,a:next x:poke 2042,s(2)
65 data192,224,118,56,24,20,2,0
67 forx=0to9:readg(x):next x:data160,227,247,248,98,121,111,100,32,32
70 forx=0to7:reada:pokes(3)*64+25+x*3,a:next x:poke2043,s(3)
75 data8,20,28,28,28,28,42,8
80 forx=0to7:reada:pokes(4)*64+25+x*3,a:next x:poke2044,s(4)
85 data3,7,14,60,24,40,64,0
87 forx=0to7:reada:pokes(5)*64+25+x*3,a:next x:poke2045,s(5)
88 data66,0,4,32,0,34,128,16
90 vo=54296:wa=54276:at=54277:h=54273:lo=54272:ph=54275:pl=54274:su=54278
95 pokevo,15:fi=0:a$="":key=197:pokeat+14,32:pokesu+14,255
98 forx=watowa+14step7:pokex,17:pokex,0:next
100 gosub20000:print"[147]":forx=1to18:print"";:next
110 print"[158][185][162][185][175][185][162][185][162][175][162][185][175][185][175][164][164][162][183][183][183][183][183][146][162][185][175][175][185][164][185][175][185][164][185][185][175][164][185][175][185][175]";
120 print" [146]";
130 print" mond-raumschiff #5... lande-anzeige";
132 forii=1to1000:nextii
135 forx=0to30:poke1104+rnd(1)*600,46:next:da=25:pa=3:nh=0:pt=0
140 v=53248:co=7:poke2040,s(0):pokev+16,0:pokev+45,3:pokev+21,127:aw=1
160 gosub5000:df=5:co=8:gosub7500
170 forx=v+41tov+43:pokex,5:next
180 pokev+44,1
190 df=df+2:rox=11:co=co-1
200 sx=180:sy=10:pokev,sx:pokev+1,sy:pokev+39,co:hi=0:rox=rox-1:ifrox=0then8000
210 xo=rnd(1):ifrnd(1)<.5thenxo=-xo
220 yo=.5:s=df:ifs>20thens=20
230 pokewa,129:pokeh,200:pokelo,255:pokevo,1:pokev+30,0:pokev+16,0
300 sx=sx+xo*(s/3):sy=sy+yo*s
305 ifsx>255andhi=0thenhi=1:pokev+16,peek(v+16)+1:sx=0
310 pokev,sx:pokev+1,sy:ifsy>190then1000
315 iffithengosub6000:iferthen7000
320 s=s+.3:ifs>20thens=20
330 pokevo,s/2
340 if(peek(v+30)and65)=65then10000
400 p=peek(key):ifp<>64then3000
410 if fithengosub6000:iferthen7000
500 goto300
1000 t=sx+256*hi:sp=int(t/8)-2:pokev,0:pokev+1,0:pokev+16,0:pokevo,15:pokeh,1
1010 pokewa+14,0:fi=0:pokery,0:forz=1tornd(1)*4:da=da-1:ifda=0then12000
1016 gosub7500
1020 forx=1to10:pokev+17,26:ford=1to10:next:pokev+17,27:pokevo,15-(x/2)
1030 ford=1to10:nextd,x
1040 q=1784+sp:p=peek(q):ifp=32thenq=1824+sp:p=peek(q):pokewa,0
1050 gr=0:forx=0to9:ifp=g(x)thengr=x:x=10
1060 next x:pokeq,g(gr+1):next z
1100 goto200
3000 iffithen4000
3005 ifp<>31andp<>28andp<>39then4000
3010 ifp<>31then3100
3020 mx=164:my=170:rx=v+4:ry=v+5:xc=-1:n=4:goto3500
3100 ifp<>28then3200
3110 mx=164:my=170:rx=v+6:ry=v+7:xc=0:n=8:goto3500
3200 ifp<>39then4000
3210 mx=164:my=170:rx=v+8:ry=v+9:xc=1:n=16
3500 forx=v+4tov+9:pokex,0:next:pokerx,mx:pokery,my:h2=0:n=n+1
3505 pokewa+14,129:pokeh+14,255-my:pokev+16,hi
3510 fi=1:goto410
4000 ifp=10then4500
4002 ifp=41then4700
4005 ifp<>60orpa=0then410
4006 pa=pa-1:pokewa,19:pokevo,15:mx=sx:my=sy
4010 forx=1to30:poke53281,3:pokeh,29:poke53281,0:pokeh,200:next:gosub7500
4020 goto7000
4500 pokev+21,64:pokewa,129:pokewa+7,0:pokewa+14,0:pokevo,0
4505 print"[150]*** m i s s i o n abgebrochen ***"
4510 forx=1to15step.3:pokevo,x:yy=yy-.05*x:pokev+13,yy:next x
4520 pokewa,17:pokewa+7,17:pokeh,32:pokeh+7,33:pokelo,yy:pokelo+7,yy+10
4530 yy=yy-.75:pokev+13,yy:pokeh,255-yy:pokeh+7,249-yy:ifyy>6then4530
4540 goto11000
4700 print"[144] *** pause modus - 'p' fuer neustart ***"
4705 poke53281,1:ifpeek(key)<>64then4700
4710 ifpeek(key)<>41then4710
4715 ifpeek(key)<>64then4715
4720 poke53281,0:print" ":goto410
5000 pokeat,32:pokesu,255:pokeat+7,32:pokesu+7,255:pokeh,17:pokelo,3
5001 pokevo,15:pokewa,17:pokewa+7,17
5002 pokeh+7,16
5005 pokelo+7,3:pokeph,8:pokepl,8
5010 yy=3:l=s(6)*64+13:pokev+12,168
5020 pokel,16:pokel-3,16:forx=1to8:yy=yy+.3:pokev+13,yy:pokelo,yy:pokelo+7,yy
5025 nextx
5030 gosub5500:ifyy>175then5060
5040 pokel,0:pokel-3,0:forx=1to8:yy=yy+.3:pokev+13,yy:pokelo,yy:pokelo+7,yy
5050 next x:goto5020
5060 print" [150]rueckstoss-aggregate aktiviert[146] ";
5061 forii=1to1000:nextii
5062 pokewa,129:pokewa+7,129:pokeh,7:forx=15to1step-.08:pokevo,x:gosub5500
5065 yy=yy+.04:pokev+13,yy:next x
5067 print" *** landung erfolgreich *** ";
5070 pokewa,17:pokewa+7,0
5080 pokevo,15:forx=1to5:print"[150]0":pokeh,20:fordl=1to100:next
5090 print"0":pokeh,0:fordl=1to100:next:next
5100 print" "
5110 fordl=1to1000:next:print"[144]meteor-schauer..alle zur raketen-station";
5115 pokewa,17:forx=1to9:poke53281,x:forz=0to40step.5
5120 pokeh,z:next z:next x:poke53281,0
5200 print" ";:return
5500 print"[156] hoehe [146] [159]";185-int(yy);" "
5510 return
6000 mx=mx+xc*8:ifmx>255thenmx=mx-255:pokev+16,peek(v+16)+16
6010 my=my-8:ifmy<50thenpokery,0:fi=0:pokewa+14,0:return
6020 pokerx,mx:pokery,my:er=0:pokeh+14,255-my:pokevo,15
6025 if(peek(v+30)andn)=nthen6200
6100 return
6200 er=1:pokewa+14,0:pt=pt+aw*100:goto7500
7000 pokeh,6:pokevo,15:pokev+1,0:pokery,0:nh=nh+1:pokewa,129
7005 ifhi=1thenpokev+16,32
7010 forx=15to0step-.3:pokev+10,sx:pokev+11,sy:pokevo,x:pokev+29,32:pokev+23,32
7020 pokev+10,sx:pokev+11,sy+4:pokevo,x:pokev+29,0:pokev+23,0:next x
7030 pokev+11,0:fi=0:goto200
7500 print"[156]stand:";pt;"[157] [159]panik:";pa;"[157] ";
7505 print" [156]high:";sc(1)
7506 c$="[156]":ifda<10thenc$="[150]"
7507 x=fre(0):rem avoids garbage collection
7508 ifda=0thenprint" ":return
7510 print"[158]zustand:";c$;:forx=1toda:print"[208]";:next x:print"[146] ";:return
8000 print"[144] meteor-angriff ";aw;"[157] beendet!!"
8010 print" bonus von 100 *";aw
8020 pt=pt+aw*100:pokevo,15:pokewa,33:forx=0to10:poke53281,rnd(1)*16:fory=0to60
8030 pokeh,y:nexty:nextx:pokewa,0:poke53281,0
8040 print" "
8045 print" ":gosub7500
8050 aw=aw+1:ifaw<7then190
8060 goto15000
10000 print"[147] *** mondbasis zerstoert! *** "
10010 pokev+21,32:pokewa,129:pokeh,rnd(1)*254:forx=15to0step-.1
10020 pokev+10,170:pokev+11,180:pokev+23,0:pokev+29,0:pokevo,x
10030 pokev+10,166:pokev+11,174:pokev+23,2:pokev+29,32:pokev,0:next x
10040 pokev+21,0:pokewa,0:bl=1
11000 print"[147]dein ergebnis ... ";pt
11005 pokewa,0:pokewa+7,0:pokewa+14,0
11010 print"addiert wird ein bonus fuer";int(nh*100/60)
11020 print"prozent korrekte schuesse."b1=int((nh/60)*5000)
11030 print"bonus:";b1:pt=pt+b1
11040 ifbl=1thenbl=0:goto11100
11050 print"und ein weiterer bonus fuer beendigung"
11060 print"mit intakter mond-basis!!!"
11070 print"bonus: 5000 pts.":pt=pt+5000
11100 print"[158]dein endergebnis war dies[159]";pt
11110 forx=0to20:geta$:next x:z=0:forx=1to10:ifpt>sc(x)thenz=x:x=11
11120 next x:ifz=0then11500
11130 print"gib name fuer highscore ein:";
11140 inputa$:iflen(a$)>15thena$=left$(a$,15)
11150 ifz=10then11200
11160 forx=9tozstep-1:sc(x+1)=sc(x):sc$(x+1)=sc$(x):next x
11200 sc(z)=pt:sc$(z)=a$:fi=0
11500 print"[147][158]rox-64 allzeit beste"
11510 print"[156][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
11520 forx=1to9:print"[159]#";x;tab(10);"";sc(x);tab(23);"[158]";sc$(x)
11530 next x:x=fre(0)
11540 print" drueck 'space' fuer's naechste spiel"
11550 p=peek(key):ifp<>60then11550
11560 goto100
12000 print" ***gefaehrliche aktivitaeten***":gosub7500
12010 pokewa,129:pokeh,5:forx=15to0step-.07:pokev+17,26:ford=1to10:next
12020 pokev+17,27:ford=1to10:next:pokevo,x:next x:goto 10000
15000 pokev+21,66:pokev+28,2:pokev+37,7:pokev+38,2
15005 print"mission beendet. mutterschiff-bonus 5000"
15010 pokev+23,2:pokev+29,2:pokev+40,4:pokevo,15:pokewa,33:pokewa+7,33
15015 pt=pt+5000:gosub7500
15020 pokeh,2:pokeh+7,2:pokelo,1:pokelo+7,6:pokev+3,70
15030 forx=0to156step.2:pokev+2,x:cl=cl+.3:ifcl>15thencl=0
15040 pokev+40,cl:pokev+37,15-cl:next x
15060 pokewa+14,129:forx=15to0step-.1:yy=yy-.05*(15-x):pokev+13,yy:pokev+38,x
15065 next x:pokewa+14,17
15070 yy=yy-.75:pokev+13,yy:pokeh+14,200-yy:ifyy>77then15070
15080 pokev+38,2:pokewa+14,0
15090 forx=156to226step.2:pokev+2,x
15095 yy=yy-.2:pokev+13,yy:pokev+12,x+12:cl=cl+1:ifcl>15thencl=0
15096 pokev+40,cl:pokev+37,15-cl
15100 pokev+3,227-x:next x:goto11000
20000 print"[147] [158][209][209][209][209] [209][209][209] [209] [209]"
20010 print" [158][209] [209] [209] [209] [209]"
20020 print" [158][209][209][209][209] [209] [209] [209]"
20030 print" [158][209] [209] [209] [209] [209] [209]"
20040 print" [158][209] [209] [209][209][209] [209] [209]"
20060 print"[153]verteidige die mondbasis. schiesse die"
20070 print"raketen auf die fallenden meteore ab."
20080 print"zu viele beruehrungen mit dem boden"
20085 print"bringen ein erdbeben! bonus: 60 meteore"
20090 print"und: schuetze das mutterschiff!!!!"
20100 print"[158]kontrollen: [159]v,b,n [158]feuern raketen. [159]space"
20110 print"[158]aktiviert selbstzerstoerung. [159]a[158] startet!!"
20120 forx=53248to53248+16:pokex,0:next
20130 print"[159]p[158] ist 'pause'. ";:print"[150] drueck [159]s[150] um anzufangen![146]";
20140 ifpeek(197)<>13then20140
20150 return